home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / tool-inc.zip / GETFILE3.INT < prev    next >
Text File  |  1989-06-02  |  321b  |  13 lines
  1. const
  2.    maxnumfiles =  200;
  3.    null =         #0;
  4. type
  5.    filearray =    array [1.. maxnumfiles] of varstring;
  6. var
  7.    filetable:     filearray;
  8.    filecount:     integer;
  9.  
  10. procedure getfiles (pattern:       string65;
  11.                     var fdir:      filearray;
  12.                     var num:       integer);
  13.